library(DT)
library(ggplot2)
library(plotly)
library(dplyr)
library(leaflet)
library(sf)
library(readxl)
library(tidyverse)
estadisticas_policiales <-
readxl::read_excel("C:/Users/PC/estadisticaspoliciales2021.xls")
estadisticas_policiales %>%
dplyr::select(Delito,
Fecha,
Victima,
Edad,
Genero,
Provincia,
Canton) %>%
datatable(
colnames = c(
"Delito",
"Fecha",
"Victima",
"Edad",
"Género",
"Provincia",
"Cantón"
),
options = list(
pageLength = 10,
language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')
),
)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html